Standard input / output

Otázka od: Sebesta Jan

13. 4. 2004 8:35

Zdravim vsechny,

Prosim o pomoc nekoho, kdo ma zkusenost se standard input/output.
Presneji:
Posilam pres consoli (generate console application) prikazy do jine
aplikace (genesis) a cekam co mi aplikace odpovi...

Do posledni verze aplikace genesis vse chodilo skvele. Bohuzel v nove verzi
je vse v prde... Vyrobce tvrdi, ze v tomto nic nezmenil a ze mam chybu nekde
ja a nechce slyset na to, ze ten stejny exe ve stare verzi jde a v nove ne.

Pokud neco poslu tak to aplikace genesis provede ale moje aplikace ztroskota
na rakdu Read(Input,A). Dojede sem a ceka a ceka ... repeat neprobiha.
Genesis by mela po vykonani prikazu vracet vysledky,ale dle meho nic
nevraci.

Takze konecne moje otazka:
Lze nejak monitorovat nebo zjistit, zda aplikace "neco" posila do console?
Jak to jinak cist nez pomoci Read(Input,A)?

Var A:Char;
    COM_Status:String;
...
write(DIR_PREFIX+TEXT+chr(10));
// DIR_PREFIX='@%#%@' aby aplikace vedela, ze to je pro ni
// chr(10) pro ukonceni radku
Flush(Output);
// cteni vraceneho argumentu
repeat // dokud neni konec radku chr(10)
  Application.ProcessMessages;
  Read(Input,A);
  If Ord(A)<>10 then COM_Status:=COM_Status+A;
until (Ord(A)=10);
...

Dekuji za pomoc
Jan Sebesta